#!/sea/local/bin/perl -w

use strict;
use Switch;
use lib qw(.);
use WhqLog;

my $logFileName = "./whq/whq.log";
my $alcLogObj = new WhqLog;
my $logger = $alcLogObj->init( $logFileName );

$logger->error("ERROR From whq.\n");
